home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / QUES.DXR / 00141.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.6 KB  |  72 lines
  1. on exitFrame
  2.   global cards, whereto
  3.   robo = 0
  4.   if whereto = "psy" then
  5.     repeat with i = 1 to 1
  6.       if item i of cards = "0" then
  7.         robo = 1
  8.       end if
  9.     end repeat
  10.     if robo = "0" then
  11.       go("enterdoc", the moviePath & "comein.dxr")
  12.     else
  13.       sprite(63).visible = 0
  14.       go("regular")
  15.     end if
  16.   else
  17.     if whereto = "doc" then
  18.       repeat with i = 1 to 3
  19.         if item i of cards = "0" then
  20.           robo = 1
  21.         end if
  22.       end repeat
  23.       if robo = "0" then
  24.         go(1, the moviePath & "enter3.dxr")
  25.       else
  26.         sprite(63).visible = 0
  27.         go("regular")
  28.       end if
  29.     else
  30.       if whereto = "hat" then
  31.         repeat with i = 1 to 4
  32.           if item i of cards = "0" then
  33.             robo = 1
  34.           end if
  35.         end repeat
  36.         if robo = "0" then
  37.           go(1, the moviePath & "enter4.dxr")
  38.         else
  39.           sprite(63).visible = 0
  40.           go("regular")
  41.         end if
  42.       else
  43.         if whereto = "poz" then
  44.           repeat with i = 1 to 6
  45.             if item i of cards = "0" then
  46.               robo = 1
  47.             end if
  48.           end repeat
  49.           if robo = "0" then
  50.             go(1, the moviePath & "enter5.dxr")
  51.           else
  52.             sprite(63).visible = 0
  53.             go("regular")
  54.           end if
  55.         else
  56.           repeat with i = 1 to 8
  57.             if item i of cards = "0" then
  58.               robo = 1
  59.             end if
  60.           end repeat
  61.           if robo = "0" then
  62.             go(1, the moviePath & "enter6.dxr")
  63.           else
  64.             sprite(63).visible = 0
  65.             go("regular")
  66.           end if
  67.         end if
  68.       end if
  69.     end if
  70.   end if
  71. end
  72.